From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Mar 1996 22:53:55 +0000 (+0000)
Subject: (equalp): Correctly compare last elt of two lists.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~84307
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e5b633cf7069d36270db72b9eda82bd9dff22b38;p=emacs.git

(equalp): Correctly compare last elt of two lists.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index ac6ba7f630a..a9201444b0d 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -89,7 +89,8 @@ strings case-insensitively."
 	((numberp x)
 	 (and (numberp y) (= x y)))
 	((consp x)
-	 (while (and (consp x) (consp y) (equalp (cl-pop x) (cl-pop y))))
+	 (while (and (consp x) (consp y) (equalp (car x) (car y)))
+	   (setq x (cdr x) y (cdr y)))
 	 (and (not (consp x)) (equalp x y)))
 	((vectorp x)
 	 (and (vectorp y) (= (length x) (length y))